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Technical Field 

1 5 The present invention relates to a relational data structure corresponding 

to a complex hierarchy relationship. More particularly, the present invention 
relates to a relational data structure corresponding to elements or database 
objects to provide defining simultaneous multiple hierarchies and t o provide 
simplified location and access to nodes in a hierarchy. 

20 BACKGROUND OF THE INVENTION 

Databases are well-known in the art. Typically, databases store 

elements or objects that contain data and contain the relationship from one 

object to another. The database can then be queried by conventional Structured 

Query Language ("SQL") to extract information including summary 

25 information therefrom. 

An example of a database structure is a tree structure, which contains 
zero or more nodes that are linked together in a hierarchical fashion. The 
topmost node has been called the root. The root could have zero or more child 
nodes, connected by edges or links. The root is the parent node to its children. 

30 Each child node can in turn have zero or more children of its own. Nodes 

sharing the same parent are called siblings. Every node in a tree has exactly one 
parent node (except for the root, which has none), and all nodes in the tree are 
descendants of the root node. These relationships have set out that there is one 
and only one path from the root node to any other node in the tree. 
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There are a number of shortcomings of such database structures. For 
example, in order to process a summary level information of the data at a lower 
child level, object A level, such structures must be iteratively processed by 
summarizing the data from objects in the search path. This iteration for 
retrieval is inefficient and cumbersome. Further, such structures shown do not 
allow both single parent and multiple parent hierarchies. In addition, it does not 
support a graph database structure. 

Thus, there is a need to overcome the foregoing difficulties of such 
database structure. 

SUMMARY OF THE INVENTION 

Provided is a method of creating a relational database having a plurality 
of objects, each having an associated data is disclosed. A first database table 
having a plurality of entries, with each entry representing an object with an 
associated data is formed. A second database table having a plurality of entries, 
each entry defining a relationship between the plurality of objects is also 
formed. As another aspect, the present invention relates to an article of 
manufacture in which a computer usable medium having a computer readable 
program code embodied therein is configured to cause a computer to execute 
the foregoing. 

BRIEF DESCRIPTION OF DRAWINGS 

Figure 1 is a schematic diagram showing a complex tree-like 

hierarchical database structure to which the present invention can represent. 

Figure 2 is a database table showing the relationship of the database 
objects along with the data stored in the database table. 

Figure 3 is a block level diagram of one embodiment of the present 
invention. 

Figure 4 is a schematic diagram of another embodiment of the present 
invention. 

DETAILED DESCRIPTION 

Referring to Figure 1, there is shown a hierarchical type of database 

structure. As is shown in Figure 1, object A or database element A has a direct 

relationship to objects B, C, D. As used hereinafter, elements B, C, D will be 
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referred to as objects. Object B has objects E and F directly related thereto. 
Object C is directly related to object G. Object D is directly related to object H. 
The database structure shown in Figure 1 is typically termed a tree structure and 
has a hierarchical relationship between objects A, B, C, D, E, F, G and H. 
5 Typically, the database structure shown in Figure 1 can represent, for example, 
sales data. Thus, objects E, F, G and H can represent sales information in a 
certain locality. Objects B, C and D may be summaries of the sales in a certain 
region. Object A may then be a summary of a higher order region such as a 
country. 

10 The relationship of the objects A-H in the structure is shown in Figure 2. 

Each object is represented as a row in a database table 8. In one of the columns, 
E3 the object is represented by a unique number. Thus, object A is assigned the 

Vf\ number 0, object B is assigned the number 1, etc. In another column, the 

m 

^ objects to which the particular object in that row has a direct relationship is so 

*P 15 indicated. Thus, object A, having the number 0, has a direct relationship with 

M= objects B, C and D having the numbers 1, 2 and 3 respectively. Similarly, 

jL object B, having the number 1, has a direct relationship with objects E and F 

with numerical identifiers of 4 and 5 respectively. Similarly, object C, bears a 
direct relationship to object G having a numerical identifier of 6. Last but not 
20 least is object D having a direct relationship with object H having a numerical 
identifier of 7. In this manner, the relationship of each of the objects to one 
another is defined in this particular database table. Other columns in each of the 
rows stores the data associated with that particular object. 

Referring to Figure 3 there is shown a schematic diagram of the 
25 relationship of the database structure to implement the method and apparatus of 
the present invention. A first table of members 10 has a plurality of entries. 
Each entry is defined, e.g. by one row and comprises a database object along 
with its associated data. The first table 10 has a listing of only of each object 
and its associated data. Thus, for the hierarchical relationship shown in Figure 
30 1, the table 10 contains entries for objects A-H and their associated data. 

A second table of reporting relationships 20 is constructed. The second 
table 20 has a plurality of entries with each entry showing each of the 
relationships existing in the complex hierarchical structure to which the first 
table 10 relates. Thus, for example, for the hierarchical structure shown in 

3 

; ^ 
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Figure 1, there is the following relationship between the various database 
objects: 



Parent 


Child 


A 


A 


A 


B 


A 


c 


A 


D 


A 


E 


A 


F 


A 


Cj 


A 


H 


B 


E 


B 


F 


C 


G 


D 


H 



Since there are twelve possible relationships between the database objects of 
Figure 1, twelve rows or entries are established. Each entry identifies the parent 
of that relationship and its associated child. Further, each entry indicates 
whether that relationship is a direct ("0") or indirect ("1") relationship. Thus 
for the parent-child relationships of A-B, A-C, A-D, these are direct 
relationships. For the parent child relationships of A-E, A-F, A-G and A-H, 
these are indirect relationships. Similarly, for the relationships of B-E, B-F, B- 
G, and B-H, these are direct relationships. In each entry is an indication of the 
databases structure to which this relationship represents. Thus, for example, the 
twelve entries relate to the hierarchical structure shown in Figure 1 , and has the 
associated entry of "1" under "Sum Obj". Because the database structure 
relationship of the present invention can be very flexible, the database objects 
shown in Figure 1, may be rearranged and have a different relationship. In that 
event, if, for example, in the second database structural relationship, object E 
represented by the numerical identifier 4 reports directly to object A, and if it is 
desired to represent that relationship, in the same table that representation can 
be set forth with a "Sum Obj" of "2" showing that it represents a different 
hierarchical structure. 
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A third table of hierarchy 30 is a summary of all the various possible 
database structural relationships to which the elements from second table 20 can 
be summarized. Thus, each row in the third table 30 represents a hierarchy and 
is a summary of the data in the rows in the second table 20 having rows 
5 identified with the identifier "1", in the "Sum Obj" column. An identifier 2 in a 
row in third table 30 would summarize the relationships from those rows in 
which there is a column entry labeled "2" for "Sum Obj", and would represent a 
different hierarchy. Thus, the first row in third table 30 is a summary of the 
data in which the objects have the relationship shown in Figure 1. 
10 The operation of the database structure shown in Figure 3 will now be 

described. First, given any node in any hierarchy, one can retrieve the nodes 
g that report to that node with a SQL statement and executed with one round trip. 

^ Thus, if it is desired, for example, to determine the data summarized into object 

fl B at data node identified as 1 , one has to do is summarize all the data in which 

g 15 node 1 (object B) is listed as the parent in second table 20, retrieving the 

•} identification of the child that reports to that node and summarizing the data 

from the first table 10. 

jl Similarly, to obtain a summary of the data at node 0 or database object 

* A, then the second table 20 is accessed and the entries in which 0 (object A) is 

3 20 the parent are referenced and the data is retrieved from the associated child from 

" the first table 10 and summarize those. Therefore, retrieval of a node of the 

objects that report to it can be achieved by a SQL statement providing 
expeditious searches. 

Second, an advantage of the present invention is that it allows definition 
25 of simultaneous multiple hierarchies on the database tables without having to 
use dedicated database relations for any of the hierarchies. As previously 
discussed, it is possible, for example, for the database objects shown in Figure 1 
to have the relationship shown in Figure 1 . It is also possible for those same 
database objects to have a different relationship in which object E reports 
30 directly to object A. This example is shown in Figure 3 wherein the same 

database objects in first database table 10 are shown in hierarchical relationship 
of 1 (under the "Sum Obj" column) and also the same relationship is established 
with a second hierarchical structure in which a 2 appears in the "Sum Obj" 
column. Thus, without the need to use dedicated database relationships for any 
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of the hierarchies, one can establish simultaneous multiple hierarchies on the 
same database objects. 

Third, with the present invention where the relationship is separate and 
apart from the underlying data, single parent and multiple parent hierarchies can 
also be defined. Figure 1 shows a structural relationship of a single parent 
hierarchy. A multiple parent hierarchy would be, for example, with the 
structural relationship of Figure 1 inverted in which objects E, F, G and H are 
the parents and the childs are B, C, D and A. Database object B would have 
multiple parents reporting to both database object E and database object F. 
Establishing such a relationship in the database structural relationship of the 
present invention is simply a matter of defining the appropriate database object 
under the column of parent and the appropriate database object under the 
column of child. Such a structure would support both tree and graph type 
structures. 

From the foregoing, it can be seen that with the relationship defined 
separately from the underlying data, and with the definition of each parent and 
child, execution of retrieval of information from the database structure is 
extremely efficient and fast. Moreover, for example, if the hierarchy is to 
change, the definition change reformats the hierarchy by modifying the second 
table 20, accordingly. In contrast, in the database table 8, one must change the 
database table in which the data is also present. In the present invention, where 
the data is separate from the relationship, data integrity during maintenance can 
be preserved. Further, the functions of data entry and data maintenance can be 
separated. 

Referring to Figure 4 there is shown yet another embodiment of the 
present invention. As before, a first table 10 stores each of the database objects 
and their associated data. A second table 20 stores each of the relationships in a 
parent-child definition for the hierarchy to which the database objects stored in 
first table 10 represents. As previously discussed, second table 20 may store 
relationships representing more than one complex hierarchy relationship to 
which the database objects of first table 10 represent. Similar to Figure 3, each 
row of a third table 30 represents a different complex hierarchy structure to 
which the database objects stored in the first table 10 represent. 
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The difference between the database structure relationship shown in 
Figure 4 and that shown in Figure 3 is that there is an intermediate fourth table 
40 between the second table 20 and the third table 30. Each row in the fourth 
table 40 relates to a row in the third table 30 to a row in the second table 20. 
For example, in accounting, this may be termed a sub-total. Thus, for example, 
each row in the fourth table ("a Sub-Total") 40 may relate a row in third table 
30 ("a Grand Summary") to the rows in the second table 20. 

In the preferred embodiment the method of the present invention is 
practiced by a computer operating a computer readable program stored on a 
computer usable medium, such as a disc drive. The pertinent portion of the 
method of the present invention can be practiced by the following code, written 
in Clarify® Basic, a language that can be executed under any of the following 
operating systems: Microsoft NT, Sun Solaris, HP Unix, and AIX (IBM). The 
relevant objects are table rollup (one row for the hierarchy description), 
table_loc_rol_itm (all the "reports to" parent child rows), and table_inv_locatn 
(the objects being rolled up into this particular hierarchy). As an example, note 
the database relation from rollup to table_cycle count. This allows a particular 
inventory cycle count to be tied to a particular rollup of inventory locations. 
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************************************************** 
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84 31.cbp 

CB code for Inventory Count Location window 



**********************************^ 

#DECLARESTRINGS lcb 

#DECLARESTRINGS oab 

# INCLUDE LE.cbh 

# INCLUDE cbconst.cbh 

# INCLUDE u t i 1 s . cbh 

# INCLUDE CL.cbh 

Declare Function LEIsAChild{ le As LEType ) As Boolean 
Declare Sub lcbGetRollup ( ) 

Declare Sub lcb_AddRolItm ( newParentRec As Record, newChildRec 
As Record, rollupRec As Record, parentDepth as Long ) 
Declare Function lcb_MeetAllRollupConditions ( rollupView As 
String, newParentRec As Record, newChildRec As Record, rollupRec 
As Record ) As Boolean 



7 



PATENT 



Declare Sub lcb_Delete_obj_rol_i tm ( newChildRec As Record, 
rollupRec As Record) 

Declare Sub lcb_GetDataToValidateAdd ( viewName As String, 
currParent As Record, currChild As Record, rollupRec As Record ) 
Declare Sub lcb_ValidateParent ( currParent As Record, rollupRec 
As Record, currParentLocRec As Record ) 

Declare Function lcb_lsltself ( newParentRec As Record, 
newChildRec As Record ) As Boolean 

Declare Function lcb_IsParent ( pList As List, newParentRec As 
Record ) As Boolean 

Declare Function lcb_IsChild ( cList As List, newChildRec As 
Record ) As Boolean 

Declare Function lcb_InOtherInventoryRollup (newChildRec As 
Record, rollupRec As Record) As Boolean 

Declare Function lcb_IsSomeWhereInRollup ( newChildRec As Record 
) As Boolean 

global const RECORD_TYPE = "rollup" 
' Form specific constants 



global gchildCList 
children list 
global gchildPList 
list 

global gparentCList 
children list 
global gparentPList 
list 



As List 
As List 
As List 
As List 



Dim childCList As List 

children list 

Dim childPList As List 

list 

Dim parentCList As List 

children list 

Dim parentPList As List 

list 

Dim otherlnvRollupParentList As List 

loc in other Inv rollup list 

Dim otherlnvRollupChildList As List 

loc in other Inv rollup list 

Dim invRollupList As List 



Dim nodeKeyRemoved 
that was removed 
Dim nodeDepthRemoved 
that was removed 

Dim nodX 

Dim imageVal 

Dim selectedlmageVal 

const tvwFirst = 0 

const tvwLast = 1 

const tvwNext - 2 

const tvwPrevious = 3 

const tvwChild = 4 



As Long 
As Long 

as Long 
as Long 
as Long 

'First Sibling. 
'Last Sibling. 
•Next sibling. 
'Previous sibling. 
'Child. 



* new child's 

' new child's parent 

' new parent ' s 

' new parent ' s parent 

' new child's 

* new child's parent 
' new parent * s 

' new parent ' s parent 
' check for new child 

* check for new child 
' current rollup list 

* Store the node key 

1 Store the node depth 
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Populate UDT 



Sub Fi ULEHelp ( le As LEType ) 
Set le . f rm - Me 

Set le.cobj = Cob j^recLocRollup 
Set le . cobj_leudt = Cobj_leudt 
Set le.clb = clbCbxLocRollups 
Set le.cbx = CBX_SelectLocRollup 

le.rec_type = RECORD_TYPE 

le.user_rec_type = LCB_COUNTLOC_USER_TYPE 

le.edit_from_list = TRUE 
le.dont_pref ill = TRUE 
• le . f ld_objid = "objid" 

Set le.btn_find = btnCbxf Rollup 

Set le.btn_done = DONE 

Set le.btn_add = btnAdd 

Set le . btn_replace = btnReplace 

End Sub 

Sub FillLE ( le As LEType ) 

Call FillLEHelp ( le ) 
End Sub 



Make sure required fields are filled in 



Sub CheckRequired () 

Dim le As LEType 

Call FillLE ( le ) 

Dim MyList As New List 

Set glst_reqd = MyList 

Call AddToReqdList ( Me ) 

If glst_reqd . Count > 0 Then 
Call MissingMsgO 
Call LESetSaveOK( le, False ) 

End If 
End Sub 



Enable other buttons 



Sub ProperEnabling ( ) 

Dim locationRec as Record 

Dim nodeLocationRec as Record 

Dim rollupRec as Record 

Set nodeLocationRec = Cobj_recSelectLocBinNode . Contents 
Set rollupRec = Cobj_recLocRollup . Contents 

btnAdd . Enabled = ZeroOBJID ( Cobj_recLocRollup . Contents ) 
btnReplace . Enabled = Not ZeroOBJID { 
Cobj_recLocRollup . Contents ) 

btnAdd . default - btnAdd . Enabled 




btnReplace . default = btnReplace . Enabled 
btnRemoveRollup . Enabled = btnReplace . Enabled 

btnAddParent . Enabled = clbCbxCountLocs . SelCount = 1 and 
nodeLocationRec . GetField ( " loc_obj id" ) = 0 

btnAddChi Id . Enabled = clbCbxCountLocs . SelCount > 0 and 
nodeLocationRec . GetField ( " loc_obj id" ) <> 0 

btnAddSibling . Enabled = clbCbxCountLocs . SelCount > 0 and 
nodeLocationRec . GetField ( " loc_obj id" ) <> 0 

btnRemove . Enabled = nodeLocationRec . GetField (" loc_obj id" ) <> 



If rollupRec. GetField ("obj id") = 0 Then 

Me . DisableControls "PBEFCbxeCountLoc 11 , "btnCbxf CountLoc " 
Else 

Me . EnableControls "PBEFCbxeCountLoc" , "btnCbxf CountLoc 11 
End If 



If nodeLocationRec .GetField (" loc_obj id" ) <> 0 Then 

Me .DisableControls "ddlRollupType" 
Else 

Me . EnableControls "ddlRollupType" 
End If 



End Sub 



Adhoc handler for Rollups 



Sub HandleAdhocRollup () 



CBX_SelectLocRollup . ClearPreFilter "obj ect_type " , 
CBX_SelectLocRollup . AppendPreFilter "object_type" , 
focus_type", "is equal to", 228 



End Sub 



Adhoc handler for Locations 



Sub HandleAdhocLocation { ) 



CBX_SelectCountLocs . ClearPreFilter "CountLoc_loc_name " , "" 
CBX_SelectCountLocs . ClearPreFilter "CountLoc_loc_type" , "" 

CBX_SelectCountLocs . ClearPreFilter " " , 
" locatn2 inv_role : role_name " 

CBX_SelectCountLocs .AppendPreFilter " " , 
" locatn2inv_role : role_name" , "is equal to", LCB_LOCATED_AT_ROLE 

CBX_SelectCountLocs -ClearPreFilter "class" , "inv_class" 

CBX_SelectCountLocs .AppendPreFilter "class", "inv_class", "is 
equal to" , 0 



End Sub 



Clear all related data 



Sub ClearRelatedRollup ( ) 
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'Call ClearLOR( Cob j_lorLocRol lup ) 
Call ClearCobj ( Cobj_recLocRollup , "rollup" ) 
clbCbxLocRollups .Unselect 
End Sub 

Sub ClearRelatedCountLoc ( ) 

Call ClearLOR{ Cob j_lorLocatnView ) 

Call ClearCobj ( Cob j_recLocatnView, "locatn_view" ) 
clbCbxCountLocs .Unselect 
End Sub 



i **************************** 

' STANDARD EVENT HANDLERS 

i **************************** 



Load the form 



Sub Form_Load ( ) 

Dim iconid As Long 

Dim colorval As Long 

Dim le As LEType 

Call InitLOR ( Cobj_lorLocRollup ) 

Call InitCobj ( Cob j_recLocRol lup , "rollup" ) 

Call InitLOR ( Cobj_lorLocatnView ) 

Call InitCobj ( Cob j_recLocatnView, " locatn_view" ) 

Call InitCobj ( Cob j_recSelectLocBinNode , " locatn_view" ) 

Me .DisableControls "btnUseDone" 

Dim rollupTypList as New List 

rollupTypList . ItemType = "string" 

rollupTypList . Appendl tern LCB_COUNT_PT_ROLLUP , 
LCB_PHYSICAL_ROLLUP , LCB_OPER_R0LLUP 

Cobj_lopRollupType . Fill rollupTypList 
Cob j_lopRollupType - Refresh 
ddlRollupType . SetSelected 0 

Call FillLEHelp (le) 
Call LEListLoad( le ) 
Call ClearRelatedRollup 
Call ClearRelatedCountLoc 
Call ProperEnabling 

•Mask color 
colorval = LCB_CNT_LOC_COLORVAL 

'set imagelist id in the resource dll 
iconid = LCB_CNT_LOC_IMAGELIST 
tvwCountLoc . Set ImageList iconid, colorval 

■set selected and non-selected image Icons 
imageVal = LCB_LOC_TVW_IMAGE 

selectedlmageVal = LCB_LOC_SELECTED_TVW_IMAGE 

• set overlay image index mapping 
tvwCountLoc . Se tOverlaylmage LCB_TVW_OVERLAY_IMAGE , 1 
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CBX_SelectCountLocs . AppendDef aul tSort 
"locatn2inv_role : inv_role2site : site_id M , 
"locatn2inv_role : inv_role2site : site_id M , "ascending" 

CBX_SelectCountLocs . AppendDef aultSort " sort_loc_name 11 , 
"location_name" , "ascending" 

nodeKeyRemoved = 0 
nodeDepthRemoved = 0 

On Error Goto ErrHandler 

CBX_SelectLocRollup . SetAdhocCellReadOnly n use_type" 
On Error Goto 0 

Exit Sub 
ErrHandler : 

Resume Next 

End Sub 



Done button is clicked 



Sub Done_Click() 

Dim le As LEType 
Call FillLE(le) 

•Notify account location window so that it can refresh its data 
Set grec_le = Cob j_recLocRollup . Content s 
Me . Not if yParent msgLEEdi tMoveRecord, "rollup" 

* Standard close LE window logic 
Call LEListDoneClick ( le ) 

End Sub 



Rollup Find button is clicked 



Sub btnCbxfRollup_Click() 

'Need to clear the currently selected rollup 's treeview 
tvwCountLoc . Clear 
Call ClearRelatedCountLoc 

Call ClearCobj ( Cobj_recSelectLocBinNode , " locatn_view" ) 

'Need to add application required prefilters 
Call HandleAdhocRollup 

■Now do the Select CBX lookup 
Dim le As LEType 
Call FillLE(le) 
Call LEListFindClick( le ) 

Call Proper Enabling 
End Sub 



Location Find button is clicked 



Sub btnCbxf CountLoc Click () 



12 




PATENT 



Call HandleAdhocLocat ion 
CBX_SelectCountLocs . Regenerate 
Call ProperEnabling 
End Sub 



Rollup Lookup button is clicked 



Sub PBEFCbxeRollup_Click() 

'Need to clear the currently selected rollup' s treeview 
tvwCountLoc . Clear 
Call ClearRelatedCountLoc 

Call ClearCobj ( Cobj_recSelectLocBinNode , " locatn_view" ) 
Call ClearRelatedRollup 

•Need to add application required prefilters 
Call HandleAdhocRollup 

'Now let the CBX do the rest of the filtering 
Me . DoDef ault 

Call ProperEnabling 

End Sub 



Location Lookup button is clicked 



Sub PBEFCbxeCountLoc__Click ( ) 

'Need to add application required prefilters 
Call HandleAdhocLocat ion 

'Now let the CBX do the rest of the filtering 

Me -DoDef ault 
End Sub 



When New is clicked, post the New Account and Location Window 



Sub btnAddNew_Click () 

Dim mystr_new as string 

App.GetString OAB_GSL_CASE_STS_NEW / mystr_new 
App.ExecuteMenu mystr_new, LCB_ACCT_LOC_MENU_OPTION 
End Sub 



1 When a Rollup Row is clicked, show data and sync with detail 
form 



Sub clbCbxLocRollups_Click ( ) 
Dim le As LEType 
Call Fil 1LE ( le ) 
Call LEListClbClick ( le ) 

tvwCountLoc . Clear 

Call ClearRelatedCountLoc 
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Call ClearCobj ( Cobj _recSelectLocBinNode , " locatn_view" ) 
Call lcbGetRollup () 
Call ProperEnabling 
End Sub 



' When a Location Row is clicked, show data and sync with detail 
form 



Sub clbCbxCountLocs_Click ( ) 

Call ClickOTM ( Cobj_recLocatnView, clbCbxCountLocs ) 

Call ProperEnabling 
End Sub 



Node Events 



Sub t vwCoun t Loc_Col 1 ap s e (nodelD as Long) 
End Sub 



Sub t vwCoun t Loc_Expand (node ID as Long) 
End Sub 



Sub tvwCountLoc_NodeClick (nodelD as Long ) 
Dim locBinNodeRec as New Record 



Set locBinNodeRec . RecordType = "locatn_view" 

locBinNodeRec . SetField " loc_ob j id " , 
CLng (tvwCountLoc . Key (node ID) ) 

Cobj_recSelectLocBinNode . Fill locBinNodeRec 
Call ProperEnabling 



End Sub 



Click Remove button 



Sub btnRemove_Click ( ) 



Dim newChildRec 
Dim locationBulkR 
Dim rollupRec 
Dim nodeLocationRec 



As New Record 

As New BulkRetrieve 

As Record 

As Record 



newChildRec . RecordType = " inv__locatn" 
Set rollupRec = Cobj _recLocRollup . Contents 

If rollupRec . GetField ( ,, use_type" ) = 0 Then » CC count point 
If lcbActiveCCExists (rollupRec , " rollup2cycle_count " ) Then 
App . MsgBox LCB_CC_R0LLUP_ERR2 
Exit Sub 
End If 
End If 



Set nodeLocationRec = Cobj_recSelectLocBinNode . Contents 
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newChildRec . SetField "objid", 
nodeLocationRec .GetField ( "loc_obj id" ) 

nodeKeyRemoved = nodeLocationRec . GetField (" loc_obj id" ) 

' delete all children role from the parent 
Call lcb_Delete_obj_rol_itm ( newChildRec, rollupRec ) 

tvwCountLoc . Clear 
Call lcbGetRollup {) 
Call ProperEnabling 

End Sub 



Click ADD rollup button 



Sub btnAdd_Click() 
Dim le As LEType 
Call FillLE(le) 
Call LEListAdd( le ) 
Call ProperEnabling 

End Sub 



Click SAVE rollup button 



Sub btnReplace_Click ( ) 

Dim le As LEType 

Call FillLE ( le) 

Call LEListReplace { le ) 

Call ProperEnabling 
End Sub 



Click REMOVE rollup button 



Sub btnRemoveRollup_Click ( ) 



Dim locationBulkR 
Dim rollupRec 
Dim MyBulkSav 
Dim rollupList 
Dim rollup I tmRec 
Dim index 
Dim dbString 



As New BulkRetrieve 

As Record 

As New BulkSave 

As List 

As Record 

As Long 

As String 



Dim le As LEType 
Call FillLE (le) 



Set rollupRec = Cob j_recLocRollup . Contents 

If rollupRec . GetField ( "use_type" ) = 0 Then ' CC count point 
If lcbCCExists (rollupRec, " rol lup2 eye le_count " ) Then 
App . MsgBox LCB_CC_ROLLUP_ERRl 
Exit Sub 
End If 
End If 

locationBulkR . SetRoot rollupRec 

locationBulkR . TraverseFromRoot 0, " rollup2 loc_rol_itm" 
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locationBulkR . RetrieveRecords 

Set rollupList = locationBulkR . GetRecordList ( 0 ) 

If rollupList .Count > 0 Then 

If App.MsgBox( LCB_ROLLUP_DELETE_VALID_MSG, cbYesNo, 
LE_CONFIRM_DELETE_DLG_TITLE ) = cbidNo Then 
Exit Sub 

End If 
End If 

* Actually delete it 

If rollupList .Count > 0 Then 

For index = 0 To rollupList . Count - 1 

Set rollupItmRec = rollupList . ItemBylndex ( index) 
MyBulkSav . DeleteRecord rollupItmRec 
Next index 
End If 

MyBulkSav . DeleteRecord rollupRec 
MyBulkSav . Save 

1 Tell any parent screen to delete the row 

If LEIsAChild( le ) Then 

le . f rm. NotifyParent msgLEListDelete 
Else 

Call LEEditNew( le ) 
End If 

1 No need to save changes now 
Call LEClearDirty ( le ) 

' Remove the deleted item from the grid 

clbCbxLocRollups . RemoveSelected 
clbCbxLocRollups .Unselect 

tvwCountLoc . Clear 

Call ClearRelatedCountLoc 

Call ClearCobj { Cobj_recSelectLocBinNode , " locatn__view" ) 
Call ProperEnabling 
End Sub 

Sub SaveOther ( le As LEType ) 

If ZeroObjid( Cob j_recLocRollup . Contents ) Then 

grec_le . SetField " rollup_type " , 1 

grec_le . SetField " f ocus_type " , 228 
End If 

End Sub 



Add As Parent button is clicked 



Sub btnAddParent Click () 
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Dim parentRec As Record 
Dim rollupRec As Record 

Set parentRec = Cob j_recLocatnView . Contents 
Set rollupRec = Cob j_recLocRollup . Contents 

If rollupRec .GetField ( "use_type n ) = 0 Then 1 CC count point 
If lcbActiveCCExists (rollupRec , " ro 1 lup2 eye 1 e_count " ) Then 
App . MsgBox LCB_CC_ROLLUP_ERR2 
Exit Sub 
End If 
End If 

If rollupRec .GetField ( "use_type" ) = 0 Then 
Dim parentLocRec As New Record 

Set parentLocRec . RecordType = "inv_locatn" 
parentLocRec . SetField "objid" , 
parentRec . GetField ( " loc_ob j id" ) 

Call lcb_ValidateParent ( parentRec, rollupRec, 
parentLocRec ) 

If lcb_InOtherInventoryRollup (parentLocRec, rollupRec) 

Then 

Exit Sub 
End If 
End If 

nodX = tvwCountLoc . Add ( , 
, CStr (parentRec . GetField ( " loc_ob j id" ) ) 
, parentRec . GetField ( " locat ion_name " ) , imageVal , 
selectedlmageVal) 

If parentRec .GetField ( "active" ) = 0 Then 

tvwCountLoc . SetltemOverlaylmage nodX, 1 

End If 

Dim Bulks As New BulkSave 
Dim newRoleRec As New Record 
newRoleRec . RecordType = " loc_rol_itm" 
newRoleRec . SetField "path_type " , 0 
newRoleRec . SetField "depth", 0 
Bulks . InsertRecord newRoleRec 

Bulks .RelateRecordsToID newRoleRec, " inv_locatn" , 
parentRec . GetField ( 11 loc_obj id" ) , n parent2inv_locatn" 

Bulks .RelateRecordsToID newRoleRec, " inv_locatn" , 
parentRec . GetField ( " loc_obj id" ) , " child2inv_locatn" 

Bulks . RelateRecords newRoleRec, rollupRec, 

" 1 oc_i t m2 ro 1 lup " 

Bulks . Save 

Dim locBinNodeRec as New Record 
Set locBinNodeRec . RecordType = " locatn_view" 
Set locBinNodeRec = parentRec . Copy 
Cobj_recSelectLocBinNode . Fill locBinNodeRec 

'need a method to set selected node! ! ! ! 

tvwCountLoc . SetSelectedltem 
CStr (parentRec .GetField ( "loc_obj id" ) ) 

Call ProperEnabling 
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End Sub 



Add As Sibling button is clicked 



Sub btnAddSibling_Click() 

'Get the selected node record from database and the Selected 
Build Hierarchy location (s) 



Dim 


nodeLocat ionRec 


as 


Record 


Dim 


locBuildList 


as 


List 


Dim 


locBuildObj idList 


as 


New List 


Dim 


nodeLocList 


as 


List 


Dim 


nodeLocRec 


as 


Record 


Dim 


rollupRec 


as 


Record 


Dim 


locBuildRec 


as 


Record 


Dim 


loclndex 


as 


Long 


Dim 


locationBulkR 


as 


New BulkRetrieve 


Dim 


parentDepth 


As 


Long 


Dim 


nodeRolList 


As 


List 


Dim 


nodeRolRec 


As 


Record 


Dim 


parentOf NodeLocRec 


As 


New Record 



Set nodeLocat ionRec = Cobj_recSelectLocBinNode . Contents 
Set rollupRec = Cob j_recLocRollup . Contents 

If rollupRec . GetField ( "use_type 11 ) = 0 Then • CC count point 
If lcbActiveCCExists (rollupRec , "rollup2cycle_count " ) Then 
App . MsgBox LCB_CC_ROLLUP_ERR2 
Exit Sub 
End If 
End If 

locBuildObj idList . ItemType ~ "long" 

Set locBuildList = clbCbxCountLocs . SelectedList 

locBuildList . ExtractList locBuildObj idList , "loc_obj id" 

locationBulkR. SimpleQuery 0, "inv_locatn" 
locationBulkR. AppendFilter 0, "objid" , cbEqual, 

nodeLocationRec . GetField { "loc_obj id" ) 

locationBulkR . SimpleQuery 1, " inv_locatn" 
locationBulkR. AppendFilter 1, "objid", cbln, 

locBuildObj idList 

locationBulkR . SimpleQuery 2, " loc_rollup_v" 
locationBulkR . AppendFilter 2, "child_obj id" , cbEqual, 

nodeLocationRec . GetField ( " loc_ob j id" ) 

locationBulkR .AppendFilter 2, "path_type", cbEqual, 0 
locationBulkR . AppendFilter 2, "rollup_obj id" , cbEqual, 

rollupRec .GetField ( "objid" ) 

locationBulkR . RetrieveRecords 

Set nodeLocList = locationBulkR . GetRecordList ( 0 ) 
Set locBuildList = locationBulkR . GetRecordList ( 1) 
Set nodeRolList = locationBulkR . GetRecordList (2 ) 

'If nodeRolList . Count = 1 Then 
■ Set nodeRolRec = nodeRolList . I temBylndex ( 0 ) 

If nodeRolRec .GetField ("depth") > 0 Then 
1 parentDepth = nodeRolRec . GetField ( "depth" ) - 1 

Else 
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App.MsgBox LCB_PARENT_ERR_BUILD_HIER 

Exit Sub 
» End If 

' Else 

App.MsgBox LCB_PARENT_ERR_BUILD_HIER 
Exit Sub 
End If 

If nodeRolList . Count > 0 Then 

Set nodeRolRec = nodeRolList . ItemBylndex ( 0 ) 
If nodeRolRec . GetField ( "depth" ) > 0 Then 

parentDepth = nodeRolRec . GetField ( "depth" ) - 1 
Else 

App . MsgBox LCB_PARENT_ERR_BUILD_HIER 
Exit Sub 
End If 
Else 

App . MsgBox LCB_PARENT_ERR_BUILD_HIER 
Exit Sub 
End If 



'Update the new child to have the same parent as selected node 
If nodeLocList . Count = 1 Then 

Set nodeLocRec = nodeLocList . ItemBylndex ( 0 ) 

Set parentOf NodeLocRec . RecordType = "inv_locatn" 

parentOfNodeLocRec . SetField "obj id" , 

nodeRolRec . GetField ( "parent_obj id" ) 

For loclndex = 0 to locBuildList . Count - 1 

Set locBuildRec = locBuildList . ItemBylndex ( loclndex) 

1 check if meet all other conditions 
If lcb_MeetAllRollupConditions ( " loc_rollup_v" , 
parentOfNodeLocRec, locBuildRec, rollupRec ) Then 

' Create a direct child loc_rol_itm and copy all 
children as indirect children to the parents 

Call lcb_AddRolItm ( parentOfNodeLocRec, 
locBuildRec, rollupRec, parentDepth ) 

nodX = 

tvwCountLoc .Add (CStr (nodeRolRec .GetField ( "parent_obj id" ) ) , tvwChi 
Id, CStr (locBuildRec. GetField ("obj id" ) ) , 

locBuildRec . GetField ( " location_name " ) , imageVal , selectedlmageVal ) 
If locBuildRec. GetField ( "active " ) = 0 Then 

tvwCountLoc . SetltemOverlaylmage nodX, 1 
End If 



End If 
Next loc Index 



Call ProperEnabling 
End If 



End Sub 



Add As Child button is clicked 



Sub btnAddChild Click () 
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'Get the selected node record from database and the Selected 
Build Hierarchy location (s) 



Dim 


nodeLocationRec 


as 


Record 


Dim 


locBuildList 


as 


List 


Dim 


locBuildObj idList 


as 


New List 


Dim 




a s 


List 


Dim 


nodeLocRec 


as 


Record 


Dim 


rollupRec 


as 


Record 


Dim 


locBuildRec 


as 


Record 


Dim 


loclndex 


as 


Long 


Dim 


locationBulkR 


as 


New BulkRetrieve 


Dim 


parentDepth 


As 


Long 


Dim 


nodeRolList 


As 


List 


Dim 


nodeRolRec 


As 


Record 


Set 


nodeLocationRec = 


Cobj recSelectLocBinNode . Contents 


Set 


rollupRec = Cobj_ 


recLocRollup . Contents 



If rollupRec . GetField ( "use_type" ) = 0 Then ' CC count point 
If lcbActiveCCExists (rollupRec , " rollup2cycle_count " ) Then 
App . MsgBox LCB_CC_ROLLUP_ERR2 
Exit Sub 
End If 
End If 

locBuildObj idList . I temType = "long" 

Set locBuildList = clbCbxCountLocs . SelectedList 

locBuildList . ExtractList locBuildObj idList , "loc_obj id" 

locationBulkR . SimpleQuery 0, "inv_locatn" 
locationBulkR .AppendFilter 0, "objid 11 , cbEqual, 

nodeLocationRec . GetField ( " loc_obj id" ) 

locationBulkR . SimpleQuery 1, "inv_locatn" 
locationBulkR. AppendFilter 1, "objid", cbln, 

locBuildObj idList 

locationBulkR. SimpleQuery 2, " loc_rollup_v" 
locationBulkR. AppendFilter 2, " child_ob j id" , cbEqual , 

nodeLocationRec . GetField ( " loc_obj id" ) 

locationBulkR .AppendFilter 2, "path_type", cbEqual, 0 
locationBulkR. AppendFilter 2, " rollup_obj id" , cbEqual, 

rollupRec . GetField { "objid" ) 

locationBulkR . RetrieveRecords 

Set nodeLocList = locationBulkR . GetRecordList ( 0 ) 
Set locBuildList = locationBulkR . GetRecordList ( 1 ) 
Set nodeRolList = locationBulkR . GetRecordList (2 ) 

If nodeRolList . Count = 1 Then 

Set nodeRolRec = nodeRolList . I temBylndex ( 0 ) 

parentDepth = nodeRolRec . GetField ( "depth" ) 
Else 

parentDepth = 0 
End If 

'Update the child to have the same parent 
If nodeLocList . Count = 1 Then 

Set nodeLocRec = nodeLocList . ItemBylndex (0) 
For loclndex = 0 to locBuildList . Count - 1 

Set locBuildRec = locBuildList . ItemBylndex (loclndex) 



20 



PATENT 



' check if meet all other conditions 
If lcb_MeetAllRollupCondit ions ( " loc_rollup_v" , 
nodeLocRec, locBuildRec, rollupRec ) Then 

■ Create a direct child loc_rol_itm and copy all 
children as indirect children to the parents 

Call lcb_AddRolItm ( nodeLocRec, locBuildRec, 
rollupRec, parentDepth ) 

nodx - 

tvwCountLoc .Add (CStr (nodeLocRec . GetField ( "obj id" ) ) , tvwChild, 
CStr (locBuildRec. Get Field ("obj id") ) , 

locBuildRec . GetField ( " location_name " ) , imageVal , selectedlmageVal ) 
If locBuildRec . GetField ( "active" ) = 0 Then 

tvwCountLoc . Set I temOverlaylmage nodX , 1 
End If 

End If 

Next loclndex 

Call ProperEnabling 
End If 

End Sub 



New button is clicked - Clear button 



Sub btnNew_Click ( ) 
tvwCountLoc . Clear 
Call ClearRelatedCountLoc 
Call ClearRelatedRollup 

Call ClearCobj ( Cob j_recSelectLocBinNode , "locatn_view" ) 
Call ProperEnabling 
End Sub 

Sub btnUseDone_Cl ick ( ) 

Set grec_le = Cobj_recLocRollup . Contents 

Me .Notif yParent msgLEListMoveRecord, "rollup" 

Me . Close 

End Sub 



Show a single related record 



Sub MoveRecord ( MessageStr As String ) 
End Sub 



Message handler 



Sub Message (ByVal MessageNum as Long, ByVal MessageStr as 
String) 

Dim le As LEType 
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Call FillLE(le) 



Select Case MessageNum 

Case msgLEListCheckRequired 
Call CheckRequired 

Case msgLEEditMakeChild 

Call LESetlsAChild ( le, True ) 

Case msgLEListSaveOther 
Call SaveOther ( le ) 

Case msgLEListPreFilter 
Select Case MessageStr 
Case "rollup" 

CBX_SelectLocRollup . ClearPreFilter "obj id" , 
CBX_SelectLocRollup . AppendPreFilter 
" " , M obj id" , "is equal to" , grec_le . GetField ( "obj id" ) 

btnCbxf Rollup. Enabled = TRUE 
btnCbxf Rollup . Value = 1 
• Me . EnableControls "btnUseDone" 
'btnUseDone .Default = TRUE 
CBX_SelectLocRollup . SetSelectedByld 
grec_le .GetField ( "obj id" ) 

Dim locRollupRec As New Record 
If 

CBX_SelectLocRollup .GetSelected (locRollupRec) Then 

Cobj_recLocRollup .Fill locRollupRec 

tvwCountLoc . Clear 

Call C 1 earRe 1 at edCountLoc 

Call ClearCobj ( Cobj_recSelectLocBinNode , 

"locatn_view" ) 

Call lcbGetRollup () 
Call ProperEnabling 
End If 

Case "inv_locatn" 

Dim recInvLocatn as Record 
Set recInvLocatn = grec_le 

If recInvLocatn. GetField ( " location_name " ) <> 

" " Then 

CBX_SelectLocRollup . ClearPreFilter " " , 
" rollup21oc_rol_itm: child2 inv_locatn : location_name" 

CBX_SelectLocRollup. AppendPreFilter " " , 
"rollup21oc_rol_itm: child2 inv_locatn : locat ion_name " , "is equal 
to" , recInvLocatn . GetField ( " location_name " ) 

End If 

btnCbxf Rollup . Value = 1 

Me . EnableControl s "btnUseDone " 

btnUseDone .Default = TRUE 

Case "cycle_setup" 

Dim recCCRollup as Record 
Set recCCRollup = grec_le 
CBX_SelectLocRollup . ClearPreFilter 

"usage_type" , " " 

CBX_SelectLocRollup . AppendPreFi 1 ter 
"usage_type " , "use_type", "is equal to", 0 

If recCCRol lup . GetField ( " name " ) <> " " Then 
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CBX_SelectLocRollup.EnableAdhoc TRUE, TRUE 
CBX_SelectLocRollup . SetAdhocCellText 
"name " , recCCRollup .GetField ( "name" ) 

End If 

btnCbxf Rollup . Value = 1 

Me . EnableControls "btnUseDone " 

btnUseDone . Default = TRUE 

Case "count_setup" 

CBX_SelectLocRollup . ClearPreFilter 

"usage_type " , " " 

CBX_SelectLocRollup . AppendPreFilter 
"usage_type" , "use_type" , "is equal to", 0 

btnCbxf Rollup . Value = 1 
Me . EnableControls "btnUseDone" 
btnUseDone .Default = TRUE 

End Select 

Case msgLEEditMoveRecord 

Call MoveRecord ( MessageStr ) 

Case Else 

If Not LEListMsgHandler ( MessageNum, MessageStr, le ) 
Then Call ASSERT ( False, BadMsgMsg ( Me. ID, MessageNum ) ) 
End Select 

End Sub 



i **************************** 

* Functions and Routines 

• **************************** 



1 Display the location hierarchy for the selected rollup 

i 

Sub lcbGetRollup ( ) 

Dim BulkR As New BulkRetrieve 

Dim rollupLocList As List 

Dim childLocRec As Record 

Dim childLocationlndex As Long 

Dim locBinNodeRec as New Record 

Set locBinNodeRec . RecordType = "locatn_view" 

BulkR . SimpleQuery 0, " loc_rollup_v" 

BulkR. AppendFilter 0, "rollup_obj id" , cbEqual, CGetField ( 
Cobj_recLocRollup , "objid" ) 

BulkR. AppendFilter 0, "path_type " , cbEqual, 0 
BulkR . AppendSort 0, "depth", cbAscending 
BulkR . Re trieveRecords 

Set rollupLocList = BulkR . GetRecordList (0 ) 
If rollupLocList . Count > 0 Then 

For childLocationlndex = 0 to rollupLoclist . Count - 1 

Set childLocRec = 
rollupLoclist . ItemBylndex (childLocationlndex) 
If childLocationlndex - 0 Then 
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nodX = tvwCountLoc . Add ( , 
, CStr (childLocRec . GetField ( M parent_obj id" ) ) 
, chi IdLocRec . GetField ( "parent_name " ) , imageVal , 
selectedlmageVal ) 

If childLocRec . GetField ( "parent_act ive " ) = 0 Then 
tvwCountLoc . Set I temOverlaylmage nodX, 1 

End If 



'Set the parent node as the selected node. Need this 
to enable/disable controls. 

locBinNodeRec . Set Field "loc_objid" , 
chi IdLocRec . GetField ( "parent_ob j id " ) 

Cobj_recSelectLocBinNode . Fill locBinNodeRec 
1 set selected node 
tvwCountLoc . SetSelectedltem 
CStr (childLocRec .GetField ( "parent_ob j id" ) ) 

Else 

nodX = 

tvwCountLoc .Add (CStr (childLocRec . GetField ( "parent_obj id" ) ) , tvwCh 

ild, CStr (childLocRec. GetField ( "chi ld_obj id" ) ) , 

childLocRec .GetField ( "child_name" ) , imageVal , selectedlmageVal) 

If childLocRec. GetField ("child_act ive") = 0 Then 
tvwCountLoc . Set I temOverlaylmage nodX, 1 

End If 



If childLocRec . GetField ( "depth" ) <= nodeDepthRemoved 

Then 

tvwCountLoc . Expand 
CStr (childLocRec. GetField ("parent_obj id" ) ) , 2 
End If 
End If 
Next 
Else 

Cobj_recSelectLocBinNode . Fill locBinNodeRec 
End If 



nodeKeyRemoved = 0 
nodeDepthRemoved = 0 



End Sub 



Sub lcb_Delete_obj_rol_itm 
Record) 

Dim MyBulkR 

Dim MyBulkSav 

Dim nodeCList 

Dim rolItmOb j idList 

Dim childLocObj idList 

Dim rolItemRec 

Dim deleteList 

Dim index 



( newChildRec As Record, rollupRec As 

As New BulkRetrieve 

As New BulkSave 

As List 

As New List 

As New List 

As Record 

As List 

As Long 



childLocObj idList . ItemType = " long" 
childLocObj idList . AllowDuplicates = FALSE 



•Get the selected nodes children 

MyBulkR . SimpleQuery 0, " loc_rollup_v" 

MyBulkR. AppendFi Iter 0, "parent_ob j id" , cbEqual , 

newChildRec .GetField ( "objid" ) 
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MyBulkR . AppendFilter 0, " rollup_ob j id" , cbEqual, 
rollupRec .GetField ( "objid" ) 
MyBulkR . RetrieveRecords 

Set nodeCList = MyBulkR . GetRecordList ( 0 ) 
If nodeCList . Count > 0 Then 

nodeCList . ExtractList childLocObj idList , "child_obj id" 
End If 

•Include the selected node in the list to delete 

childLocObj idList .Appendltem newChildRec - GetField ( "objid" ) 

•Now retrieve the children's children 

MyBulkR . Simp leQuery 0, " loc_rol lup_v" 

MyBulkR .AppendFilter 0, 11 child_ob j id" , cbln, 
childLocObj idList 

MyBulkR. AppendFilter 0, " rollup_obj id" , cbEqual, 
rollupRec .GetField ( "objid" ) 

MyBulkR . RetrieveRecords 

Set deleteList = MyBulkR . GetRecordList ( 0 ) 

If deleteList . Count > 0 Then 

rolItmObj idList . ItemType = "long" 

deleteList . ExtractList rolItmObj idList , "objid" 

'Get the removed node record to get its depth so that 
the Tree can be 

'Expanded out to this depth when it is refreshed 
Dim removedNodeLocRec as Record 

For index = 0 to deleteList . Count - 1 
Set removedNodeLocRec = 
deleteList . ItemBylndex ( index) 

If CLng (removedNodeLocRec . GetField ( "child_obj id" ) ) = 
nodeKeyRemoved AND CLng (removedNodeLocRec . GetField ( "path_type " ) ) 
= 0 Then 

nodeDepthRemoved = 
CLng (removedNodeLocRec .GetField ( "depth" ) ) 
Exit For 
End If 
Next 

MyBulkR. SetRoot rollupRec 

MyBulkR. TraverseFromRoot 0, "rollup21oc_rol_itm" 
MyBulkR. AppendFilter 0, "objid", cbln, rolItmObj idList 

MyBulkR . RetrieveRecords 

Set deleteList = MyBulkR . GetRecordList ( 0) 
For index = 0 to deleteList . Count - 1 

Set rolItemRec = deleteList . ItemBylndex ( index) 

MyBulkSav . DeleteRecord rolItemRec 
Next index 
MyBulkSav . Save 
End If 

End Sub 

Function lcb_lsltself ( newParentRec As Record, newChildRec As 
Record ) As Boolean 

Dim dbString As String 
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lcb_lsltself = False 

If newChildRec.GetField("objid M ) = 
newParentRec . GetField ( "obj id" ) Then 

Set LCB_IN_SAME_ROLLUP_ERR = New GlobalString 

If App.GetString (LCB_STR_SAME_ROLLUP_ERR, dbString, 

newChi ldRec . Get Fie Id ( " location name " ) ) Then 

LCB_IN_SAME_ROLLUP_ERR . SetValue dbString 
Else 

dbString = newChildRec . GetField ( " locat ion_name " ) & " 
is already in this location rollup, please select another 
location. " 

LCB_IN_SAME_ROLLUP_ERR . SetValue dbString 
End If 

App . Msgbox LCB_IN_SAME_ROLLUP_ERR 

lcb_lsltself = True 
End If 

End Function 

Function lcb_IsChild ( pList As List, newChildRec As Record ) As 
Boolean 

Dim ind As Integer, MyList As List, dbString As String 
lcb_IsChild = False 

ind = pList . FindFirstlndex ( newChildRec . GetField ( "obj id" ) , 
"child_objid" ) 

If Not ind = -1 Then 

Set LCB_CHILD_ROLLUP_ERR = New GlobalString 
If App.GetString <LCB_STR_CHILD_ROLLUP_ERR, dbString, 
newChildRec . GetField (" location_name " ) ) Then 

LCB_CHILD_ROLLUP_ERR . SetValue dbString 
Else 

dbString = newChildRec . GetField ( " locat ion_name " ) + " 
is already a direct or indirect child location, please select 
others . 11 

LCB_CHILD_ROLLUP_ERR . SetValue dbString 
End If 

App. Msgbox LCB_CHILD_ROLLUP_ERR 

lcb_IsChild = True 
Ex i t Func t i on 

End If 

End Function 

Function lcb_IsParent ( pList As List, newParentRec As Record ) 
As Boolean 

Dim ind As Integer, MyList As List, message As String 
Dim dbString As String 

lcb IsParent = False 
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ind = pList . FindFirst Index ( newParentRec . GetField ( "ob j id" ) , 
"parent_obj id" ) 

If Not ind = -1 Then 

Set LCB_PARENT_ROLLUP_ERR = New GlobalString 
If App . GetSt ring { LCB_STR_PAR_ROLLUP_ERR , dbString, 
newParentRec . GetField ( " location_name " ) ) Then 

LCB_PARENT_ROLLUP_ERR . SetValue dbString 
Else 

dbString = newParentRec . GetField (" locat ion_name " ) + 
is already a direct or indirect parent location, please select 
others. 11 

LCB_PARENT_ROLLUP_ERR . SetValue dbString 
End If 

App . Msgbox LCB_PARENT_ROLLUP_ERR 

lcb_IsParent = True 
Exit Function 
End If 

End Function 

Function lcb_IsSomeWhereInRollup ( newChildRec As Record ) As 
Boolean 

Dim dbString As String 

Dim ind As Long 

lcb_IsSomeWhereInRollup = False 
ind = -1 

ind = invRollupList . FindFirst Index ( 
newChildRec. GetField ("obj id") , "child_obj id" ) 

If ind > -1 Then 

Set LCB_IN_SAME_ROLLUP_ERR = New GlobalString 
If App. GetS tring ( LCB_STR_SAME_ROLLUP_ERR , dbString, 
newChildRec . GetField (" location_name" ) ) Then 

LCB_IN_SAME_ROLLUP_ERR . SetValue dbString 
Else 

dbString = newChildRec . GetField (" locat ion_name " ) & " 
is already in this location rollup, please select another 
location . " 

LCB_IN_SAME_ROLLUP_ERR. SetValue dbString 
End If 

App. Msgbox LCB_IN_SAME_ROLLUP_ERR 

lcb_IsSomeWhereInRollup = True 
End If 

End Function 

Function lcb_InOtherInventoryRollup (newChildRec As Record, 
rollupRec As Record) As Boolean 

Dim dbString As String 

Dim ind As Long 

Dim rollupItemRec As Record 
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lcb_InOtherInventoryRollup = False 
ind = -1 

ind = otherlnvRollupParentLiist . FindFirst Index ( 
newChildRec. GetField ("obj id") , "parent_ob j id" ) 

If ind > -1 Then 

Set rollupItemRec = 
otherlnvRollupParentList . ItemBylndex ( ind) 

Set LCB_INV_TYPE_ROLLUP_ERR = New GlobalString 
If App . Get St ring ( LCB_STR_INV_ROLLUP_ERR , dbString, 
newChildRec . GetField ( " location_name " ) ) Then 

LCB_INV_TYPE_ROLLUP_ERR . SetValue dbString 
Else 

dbString = newChildRec . GetField ( " location_name" ) 
is already in Inventory Rollup " & 
rollupItemRec . GetField ( " rollup_name " ) 

LCB_INV_TYPE_ROLLUP_ERR. SetValue dbString 
End If 

App . Msgbox LCB_INV_TYPE_ROLLUP_ERR 

lcb_InOtherInventoryRollup = True 
Exit Function 
End If 

ind = -1 

ind = otherlnvRollupChildList . FindFirst Index ( 
newChildRec. GetField ("obj id") , "child_obj id" ) 

If ind > -1 Then 

Set rollupItemRec = 
OtherlnvRollupChildList . ItemBylndex ( ind) 

Set LCB_INV_TYPE_ROLLUP_ERR = New GlobalString 
If App. GetSt ring (LCB_STR_INV_ROLLUP_ERR, dbString, 
newChildRec . GetField ( " locat ion_name " ) ) Then 

LCB_INV_TYPE_ROLLUP_ERR . SetValue dbString 
Else 

dbString = newChildRec . GetField {" locat ion_name " ) 
is already in Inventory Rollup " & 
rollupItemRec . GetField ( " rollup_name " ) 

LCB_INV_TYPE_ROLLUP_ERR. SetValue dbString 
End If 

App . Msgbox LCB_INV_TYPE_ROLLUP_ERR 

lcb_InOtherInventoryRollup = True 
End If 

End Function 

Sub lcb_AddRolItm ( newParentRec As Record, newChildRec As 
Record, rollupRec As Record, parentDepth as Long ) 

Dim Bulks As New BulkSave, i As Integer, j As Integer, 
currParent As Record, currChild As Record, pOb j id As Long, 
cObj id As Long 

For i = 0 To gparentPList . Count 

If i = gparentPList . Count Then 
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pObjid = newParentRec . GetField ( "objid" ) 
Else 

Set currParent = gparentPList . ItemBylndex (i) 
pObjid = currParent . GetField ( "parent_ob j id" ) 
End If 

For j = 0 To gchildCList . Count 
If j = gchildCList . Count Then 

cObjid = newChildRec . GetField ( "objid" ) 
Else 

Set currChild = gchildCList . ItemBylndex (j) 
cObjid = currChild. GetField ( " child_ob j id" ) 
End If 

Dim newRoleRec As New Record 

newRoleRec . RecordType = " loc_rol_itm" 

If i = gparentPList . Count And j = gchildCList . Count 

Then 

newRoleRec . SetField "path_type " , 0 
newRoleRec . SetField "depth", parentDepth + 1 
Else 

newRoleRec . SetField I! path_type " , 1 
End If 

Bulks . InsertRecord newRoleRec 

Bulks . RelateRecordsToID newRoleRec, 11 inv_locatn" , 
pObjid, "parent2inv_locatn" 

Bulks . RelateRecordsToID newRoleRec, " inv_locatn" , 
cObjid, !l child2inv_locatn" 

Bulks .RelateRecords newRoleRec, rollupRec, 

" loc_i tm2 rol lup " 
Next j 
Next i 



Bulks . Save 



End Sub 



Sub lcb_ValidateParent ( currParent As Record, rollupRec As 
Record, currParentLocRec As Record ) 

Dim MyBulkR As New BulkRetrieve 

Dim currParentlocList As List 

Set otherlnvRollupParentList = New List 
Set otherlnvRollupChildList = New List 
OtherlnvRollupParentList . ItemType = "record" 
otherlnvRollupChildList . ItemType = "record" 

MyBulkR . Simp leQuery 0, " loc_rollup_v" 
MyBulkR. AppendFi Iter 0, "child_ob j id" , cbEqual , 

currParent . GetField ( " loc_obj id" ) 

MyBulkR .AppendFi Iter 0, "usage_type " , cbEqual, 0 
MyBulkR. AppendFilter 0, "path_type " , cbEqual, 0 
MyBulkR . AppendFilter 0, " rollup_obj id" , cbNotEqual, 

rollupRec . GetField { "obj id" ) 

MyBulkR . SimpleQuery 1, " loc_rollup_v" 

MyBulkR .AppendFilter 1, "parent_obj id" , cbEqual, 

currParent . GetField ( " loc_obj id" ) 

MyBulkR .AppendFilter 1, "usage_type " , cbEqual, 0 
MyBulkR .AppendFilter 1, "path_type", cbEqual, 0 
MyBulkR .AppendFilter 1, " rollup_obj id" , cbNotEqual, 

rollupRec . GetField ( "obj id" ) 
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MyBulkR . SimpleQuery 2, "inv_locatn" 
MyBulkR . AppendFilter 2, "obj id" , cbEqual, 
currParent . GetField ( " loc_obj id" ) 

5 

MyBulkR . RetrieveRecords 

Set otherlnvRollupChildList = MyBulkR . GetRecordList ( 0 ) 
Set OtherlnvRollupParentList = MyBulkR . GetRecordList ( 1) 
10 Set currParentLocList = MyBulkR . GetRecordList (2 ) 

If currParentLocList . Count = 1 Then 

Set currParentLocRec - currParentLocList . ItemBylndex ( 0 ) 
End If 
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End Sub 



: . 5 
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Sub lcb_GetDataToValidateAdd ( viewName As String, currParent As 
Record, currChild As Record, rollupRec As Record ) 

Dim mychildCList As New List, mychildPList As New List, 
myparentCList As New List, myparentPList As New List 
Dim rollup_objid As Long, rollup_type As Long 
Dim MyBulkR As New BulkRetrieve 

Set invRollupList = New List 
invRollupList . ItemType = "record" 



Set otherlnvRollupParentList = New List 
30 Set otherlnvRollupChildList = New List 

OtherlnvRollupParentList . ItemType = "record" 
otherlnvRollupChildList . ItemType = "record" 
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mychildCList . ItemType = "record" 
mychildPList . ItemType = "record" 
myparentCList . ItemType = "record" 
myparentPList . ItemType = "record" 
Set gchildCList - mychildCList 
Set gchildPList = mychildPList 
Set gparentCList = myparentCList 
Set gparentPList = myparentPList 



" loc_rollup_v" 
"parent_obj id' 
) 

" rol lup__ob j id ' 
) 

" loc_rol lup_v 1 
"child_objid" , 
) 



MyBulkR . SimpleQuery 0 , 

MyBulkR .AppendFilter 0 , 
currChild . GetField ( "obj id" 

MyBulkR .AppendFilter 0 , 
rollupRec . GetField ( "obj id" 

MyBulkR . SimpleQuery 1 , 

MyBu 1 kR . AppendFi Iter 1 , 
currChild. GetField ( "obj id" 

MyBulkR. AppendFilter 1, " rollup_obj id' 
rollupRec .GetField ( "obj id" ) 

MyBulkR . SimpleQuery 2 , 

MyBulkR .AppendFilter 2 , 
currParent .GetField ( "obj id" 

MyBulkR . AppendFi Iter 2 , 
rollupRec . GetField ( "obj id" ) 

MyBulkR . SimpleQuery 3 , 

MyBulkR .AppendFilter 3 , 
currParent . GetField ( "obj id" ) 

MyBulkR .AppendFilter 3, " rollup_ob j id' 
rollupRec .GetField ( "obj id" ) 



" loc_rol lup_v ' 
"parent_obj id' 

" rollup_obj id' 

" loc_rol lup_v ' 
"child_objid" , 



cbEqual , 
cbEqual, 

cbEqual , 
cbEqual, 

cbEqual, 
cbEqual , 

cbEqual , 
cbEqual, 
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MyBulkR . AppendFil ter 3, "depth", cbNotEqual, 0 

MyBulkR . Simple Query 4, " loc__rollup_v" 
MyBulkR . AppendFilter 4, 11 chi ld_ob j id" , cbEqual, 
currChild . GetField { "obj id" ) 

MyBulkR . AppendFilter 4, " rol lup_obj id" , cbEqual, 
rollupRec . GetField ( "obj id" ) 

MyBulkR .AppendFilter 4, "path__type " , cbEqual, 0 

MyBulkR . Simp leQuery 5, " loc_rollup_v" 
MyBulkR. AppendFilter 5, " child_obj id" , cbEqual, 

currChild . GetField ( "obj id" ) 

MyBulkR . AppendFilter 5, "usage_type " , cbEqual, 0 
MyBulkR .AppendFilter 5, "path_type", cbEqual, 0 
MyBulkR .AppendFilter 5, " rollup_ob j id" , cbNotEqual, 

rollupRec .GetField ( "obj id" ) 

MyBulkR . SimpleQuery 6, " loc_rollup_v" 

MyBulkR .AppendFilter 6, "parent_ob j id" , cbEqual, 

currChild. GetField ( "objid" ) 

MyBulkR . AppendFilter 6, "usage_type " , cbEqual, 0 
MyBulkR .AppendFilter 6, "path_type " , cbEqual, 0 
MyBulkR .AppendFilter 6, "rollup_obj id" , cbNotEqual, 

rollupRec .GetField { "obj id" ) 



MyBulkR . RetrieveRecords 



Set mychildCList = MyBulkR . GetRecordList (0) 

If mychildCList . Count > 0 Then Set gchildCList = mychildCList 
Set mychildPList = MyBulkR . GetRecordList (1) 

If mychildPList . Count > 0 Then Set gchildPList = mychildPList 

Set myparentCList - MyBulkR . GetRecordList (2 ) 
If myparentCList . Count > 0 Then Set gparentCList = 
myparentCList 

Set myparentPList = MyBulkR . GetRecordList (3 ) 
If myparentPList . Count > 0 Then Set gparentPList = 
myparentPList 

Set invRollupList = MyBulkR . GetRecordList ( 4 ) 

Set otherlnvRollupChildList = MyBulkR . GetRecordList (5) 

Set otherlnvRollupParentList = MyBulkR . GetRecordList ( 6 ) 



End Sub 



Function lcb_MeetAllRollupCondit ions ( rollupView As String, 
newParentRec As Record, newChildRec As Record, rollupRec As 
Record ) As Boolean 

lcb_MeetAllRollupConditions = False 

If lcb__lsltself ( newParentRec, newChildRec) Then Exit 
Function 



Call lcb_GetDataToValidateAdd ( rollupView, newParentRec, 
newChildRec, rollupRec ) 



If rollupRec .GetField ( "use_type" ) = 0 Then 
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If lcb_InOtherInventoryRollup (newChi ldRec , rollupRec) 



Then 



Exit Function 
End If 



End If 



If lcb_IsChild ( gparentCList , newChildRec) Then Exit 
Function 'is it a child of node 

If lcb_IsParent ( gparentPList , newChildRec) Then Exit 
Function 'is it a child of node's parent (grandparents) 

•If we made it this far, then we know the new Child location is 
not a direct or indirect link in either the focus location's 
'child list or parent list. We also no it's not in some other 
Inventory Rollup. 

'Need to check if this new child location exists in some other 
branch 

•of this rollup hierarchy now. 

If lcb_IsSomeWhereInRollup ( newChildRec ) Then Exit Function 

lcb_MeetAllRollupConditions = True 

End Function 
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